;Register new Song for the gui
;(define (kR:sg:new-song name)
;  (print name)
;)
;(plugins:add-to *kR:songs:events:add* kR:sg:new-song)